home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / connect-line / cl / rexx / cl-bretteron.clrexx < prev    next >
Encoding:
Text File  |  1996-02-05  |  2.7 KB  |  106 lines
  1. /*
  2. **  $VER: CL-BretterOn.rexx 2.1 (05 Feb 1995)
  3. **
  4. **        © 1995 Ralf Ramge
  5. **
  6. **  PROGRAMNAME:
  7. **      CL-BretterOn.rexx
  8. **
  9. **  FUNCTION:
  10. **      Demonstrations-Skript zur cl_rexx.library, Connectline 5.0
  11. **
  12. **      Connectline © 1986-1995 Oliver Wagner, Mathias Mischler
  13. **      cl_rexx.library © 1995 Mathias Mischler
  14. **
  15. **      Dieses Skript trägt ein System wieder in die Verteiler ein,
  16. **      die vom Script CL-BretterOff.rexx verändert wurden.
  17. **      Siehe CL-BretterOff.rexx.
  18. **
  19. **  $HISTORY:
  20. **      0.01 - Erste Alpha-Version
  21. **      0.02 - Datenfiles aus CONNECTLINE:Data erwartet
  22. **             Einbindung ins ARexx-Menü des Servers
  23. **             CL_SaveBoardList() wurde vergessen
  24. **      1.0  - Datenfiles aus CONNECTLINE:Rexx/Data
  25. **             Veröffentlichungsreife Version
  26. **      1.1  - font-sensitiv
  27. **      1.11 - Logfileeintrag
  28. **      1.12 - Anpassung auf cl_rexx.library 1.20
  29. **      1.13 - Anpassung an Aufruf durch CL-PointUser.clrexx
  30. **      1.14 - Bei übergebenem Systemnamen wird kein <Return>-
  31. **             prompt am Ende des Durchlaufs aufgerufen
  32. **      1.15 - Saudämlicher Bug beim öffnen der rexxlib
  33. **      2.0  - Hauptroutine in clrexx-Modul ausgelagert (HOLD OFF)
  34. **      2.1  - kleinere kosmetische Fixes
  35. */
  36.  
  37. system=upper(arg(1))    /* Parameter einlesen */
  38. ctr=0
  39. if system~='' then nowindow=true
  40. else nowindow=false
  41. mapsmod='CONNECTLINE:Rexx/Modules/maps.clrexxmod'
  42. iomod='CONNECTLINE:Rexx/Modules/stdio.clrexxmod'
  43.  
  44. /* rexxsupport.library öffnen */
  45.  
  46. if ~show('L','rexxsupport.library') then do
  47.     if ~addlib('rexxsupport.library',0,-30,0) then do
  48.         exit 10
  49.         end
  50.     end
  51.  
  52. if nowindow=false then do
  53.  
  54.     /* Fontsize ermitteln */
  55.  
  56.     gfxbase=showlist(l,'graphics.library',0,a)
  57.     call forbid
  58.     FontAddress=next(gfxbase,154)
  59.     Fontsize=c2d(IMPORT(offset(FontAddress,20),2))
  60.     call permit
  61.     windowwidth=Fontsize*40
  62.     windowheight=Fontsize*15
  63.     windowY=Fontsize+1
  64.     WindowX=Fontsize
  65.  
  66.  
  67.  
  68.     /* Standard-IO umleiten */
  69.  
  70.     if ~show('L','cl_rexx.library') then do
  71.         if ~addlib('cl_rexx.library',0,-30,0) then exit 10
  72.         end
  73.  
  74.     screen=CLGET_FrontScreenName()
  75.     call close STDOUT
  76.     if ~open(STDOUT,'CON:'windowX'/'windowY'/'windowwidth'/'windowheight'/CL-BretterOn/SCREEN'screen,'W') then
  77.         exit 20
  78.     else do
  79.         call close STDIN
  80.         call open STDIN,'*',R
  81.         call pragma '*'
  82.         end
  83.     end
  84.  
  85. /* Hauptprogramm */
  86.  
  87. address command
  88.  
  89. if system='' then do
  90.     options prompt "Systemname :"
  91.     pull system
  92.     end
  93.  
  94. if system='' then exit
  95.  
  96. 'rx 'iomod' CURSOROFF'
  97. 'rx 'mapsmod' HOLDOFF 'system
  98.  
  99. if nowindow=false then do
  100.     options prompt "<Bitte drücken Sie RETURN>"
  101.     pull dummy
  102.     end
  103.  
  104. 'rx 'iomod' CURSORON'
  105. exit
  106.